From 4e30fe150e498ccdd4689e3285605fdaa1ebf0e3 Mon Sep 17 00:00:00 2001 From: Alex Schroeder Date: Tue, 17 Jan 2006 10:04:38 +0000 Subject: [PATCH] (rmail-auto-file): Rewrote test for "filed" using rmail-desc-get-keywords. --- lisp/mail/rmail.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 227abc0d07d..e03e68bb37b 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2316,7 +2316,7 @@ iso-8859, koi8-r, etc." (defun rmail-auto-file () "Automatically move a message into a sub-folder based on criteria. Called when a new message is displayed." - (if (or (rmail-message-labels-p rmail-current-message "filed") + (if (or (member "filed" (rmail-desc-get-keywords rmail-current-message)) (not (string= (buffer-file-name) (expand-file-name rmail-file-name)))) ;; Do nothing if it's already been filed. -- 2.30.2